COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	C≡≡≡≡≡≡ THIS IS THE REQUIRED HEADER FOR 'SCORE' SUBROUTINES. ≡≡≡≡≡≡≡
C00004 ENDMK
C⊗;
C≡≡≡≡≡≡ THIS IS THE REQUIRED HEADER FOR 'SCORE' SUBROUTINES. ≡≡≡≡≡≡≡
	SUBROUTINE SUBR
 	COMMON /P/P(1) /PL/PL(1) /INS/ INST(27),BG(60)
 	COMMON INUM,IPAR,CNT(27),BT,IREST,DF,DUR(27)
C   INUM=INST#  IPAR=PARAM#  
C   BT=BASIC TIME P1 WHEN SUBROUTINE IS CALLED
C   IF IREST IS <0, THAT NOTE WILL BE A REST.  
C   INST=INST. NAME,  BG=INSTS' BEGIN TIMES.
C   NOTE #S IN SUBROUTINE: (1-108)  C4=49  FS4=55  B4=60  C5=61  ETC.
C   F0=200  F99=299 (LIMIT IS F0-F99!)  'R'(REST)=199

	DATA J/1/
	DF=200.12
	IF(P(9).NE.X)GO TO 10
	IF(P(25).LT.3)GO TO 10
	IF(J.GT.0)GO TO 1
2	J=-J
	DF=205
C NOW MAKE A GLOCKENSPIEL
	P(5)=209
C USE F1, EXPON. ENV.
	P(8)=0
C NO FM
	P(9)=1
	P(10)=0
	P(11)=0
	P(3)=RAND(1800.,1200.)
	P(4)=.3
	GO TO 10
1	P(5)=211
C USE F11
	J=-J
10	X=P(25)
C SAVE P25 TO COMPARE WITH P9 NEXT TIME AROUND
	END